define countr
proc(L)
   if null(L) then return := 0 else return := 1 + countr(cdr(L)) fi
end;

   
L := [2,3,4];
s := countr(L)